home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.002 / stk-3 / STk-3.1 / Doc / STklos+Tk / browser.stklos < prev    next >
Encoding:
Text File  |  1995-04-26  |  509 b   |  15 lines
  1. (require "Tk-classes")
  2.  
  3. (define lab  (make <Label> :text "A simple interface"))
  4. (define box  (make <Frame> :border-width 3 :relief "ridge"))
  5. (define l    (make <Listbox>   :parent box))
  6. (define s    (make <Scrollbar> :parent box :orientation "vertical"))
  7. (define quit (make <Button> :text "Quit" :command '(quit)))
  8.  
  9. ;; Place the listbox and its scrollbar in "box"
  10. (pack l :expand #t :fill "both" :side "left")
  11. (pack s :expand #t :fill "y" :side "right")
  12.  
  13. ;; place all widget on the screen
  14. (pack lab box quit)
  15.